请选择 进入手机版 | 继续访问电脑版
 找回密码
 立即注册

QQ登录

只需一步,快速开始

ewqe

注册会员

1

主题

3

帖子

11

积分

注册会员

积分
11
最新发帖
ewqe
注册会员   /  发表于:2017-5-11 12:31  /   查看:3265  /  回复:4
近日做一个管理系统时碰到一个问题,搞了好多天始终不能解决,故来此请各位帮忙解决,问题如下:
注:TDATA1是一个true DataControl控件,TDBGRID1是一个true DBGrid控件,均为8.0版      
TData1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim  (UserName) + ";pwd=" + Trim(Password) + ";database=" + Trim(DatabaseName)   
TData1.RecordSource = "select Area_ID as 产地编号,Area_Name as 产地名称,Area_IsVisible as 是否可视 from Area"     
Set TDBGrid1.DataSource = TData1     .....     
with
col2 .ValueItems.Presentation = dbgCheckBox     
end with     
通过代码增加COL2列,设置col2列显示为checkbox,col2列对应于SQL SERVER中Area表的Area_IsVisible字段,类型为bit,
进行如上设置后,运行时,却不显为checkbox,而是显示为-1和0 ,
而我想将-1和0这两个逻辑值显示为checkbox的选中和未选状态,请教各位该怎么办,为什么会不显示,或者提供有关TRUE DBGRID的其它方法。   
请各位帮助解决一下,万分感谢!!!

4 个回复

倒序浏览
Alice
社区贡献组   /  发表于:2017-5-11 15:00:27
沙发
谢谢您的反馈。
布尔类型会显示CheckBox。
如果是0,1,那么需要设置列的Translate为true
我测试如下代码是好的:
  1. Dim valItem As C1.Win.C1TrueDBGrid.ValueItemCollection
  2. valItem = Me.DBGridEncounters.Columns("Confirmed").ValueItems.Values
  3. valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("0", False))
  4. valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("1", True))
  5. DBGrid.Columns("c").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
  6. DBGrid.Columns("c").ValueItems.Translate = True
复制代码

评分

参与人数 1满意度 +5 收起 理由
ewqe + 5 很给力!

查看全部评分

请点击评分,对我的服务做出评价!  5分为非常满意!

葡萄城控件服务团队

官方网站: http://www.gcpowertools.com.cn
回复 使用道具 举报
ewqe
注册会员   /  发表于:2017-5-11 16:06:57
板凳
谢谢
回复 使用道具 举报
ewqe
注册会员   /  发表于:2017-5-11 17:01:13
地板
TDBGrid1.Columns("select_flag").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
TDBGrid1.Columns("select_flag").ValueItems.Translate = True

您好, C1.Win.C1TrueDBGrid应当如何表示?
回复 使用道具 举报
Alice
社区贡献组   /  发表于:2017-5-11 17:24:49
5#
ewqe 发表于 2017-5-11 17:01
TDBGrid1.Columns("select_flag").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.Chec ...

不客气。
没太理解您给出的代码,是哪里有问题么?
请点击评分,对我的服务做出评价!  5分为非常满意!

葡萄城控件服务团队

官方网站: http://www.gcpowertools.com.cn
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部