true dbgrid 关于将布尔字段显示为checkbox的问题

收藏

近日做一个管理系统时碰到一个问题，搞了好多天始终不能解决，故来此请各位帮忙解决，问题如下：
注：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的其它方法。
请各位帮助解决一下，万分感谢！！！

Alice · Alice

谢谢您的反馈。
布尔类型会显示CheckBox。
如果是0，1，那么需要设置列的Translate为true
我测试如下代码是好的：

Dim valItem As C1.Win.C1TrueDBGrid.ValueItemCollection
valItem = Me.DBGridEncounters.Columns("Confirmed").ValueItems.Values
valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("0", False))
valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("1", True))
DBGrid.Columns("c").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
DBGrid.Columns("c").ValueItems.Translate = True

复制代码

ewqe · ewqe

谢谢

ewqe · ewqe

TDBGrid1.Columns("select_flag").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
TDBGrid1.Columns("select_flag").ValueItems.Translate = True

您好, C1.Win.C1TrueDBGrid应当如何表示?

Alice · Alice

ewqe 发表于 2017-5-11 17:01
TDBGrid1.Columns("select_flag").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.Chec ...

不客气。
没太理解您给出的代码，是哪里有问题么？

		自动登录	找回密码
密码			立即注册

[已处理] true dbgrid 关于将布尔字段显示为checkbox的问题

4 个回复

评分

浏览过的版块

活字格认证

微信认证勋章

元老葡萄