Flexgrid一列设置成checkbox样式，数据绑定缺没有打勾

收藏

查询一个sql语句，把一列设置成checkbox样式，但绑定数据源后，发现数据库值=1的默认没有打勾标记。
不知道哪里设置有问题？
绑定的字段用sql语句改成convert(int,status),convert(bit,status)似乎都不行。
部分代码
dim vSourceData as new datatable
                  Dim cs As CellStyle = fg.Styles.Add("bool")
                  cs.DataType = GetType(Boolean)
                  cs.ImageAlign = ImageAlignEnum.CenterCenter
                  fg.Cols(i + 1).Style = cs

         fg.DataSource = vSourceData

Alice · Alice

谢谢您的反馈。
根据您提示的内容，推测不出是什么问题，麻烦提供可以重现问题的Demo，我帮您看看。

chenfeng1029 · chenfeng1029

我写的一个类中的函数。fg=c1flexgrid
传递过去的查询得到的Datatable中有一个status字段，系统是varchar(1)。
我查询语句是特意更改了类型convert(big,status) as Status.
我先从特定的表中读取字段设置信息，然后把查询语句绑定到表格，但checkbox缺没有正常显示。看图片。
Public Sub BindData(ByVal vSourceData As DataTable, Optional vLockColor As Long = 0)
      Dim dt As New DataTable
      dt = GetDataInfo()
      With fg
         .Redraw = False

         .AutoGenerateColumns = False
         .Rows(0).TextAlign = TextAlignEnum.CenterCenter

         For i As Integer = 0 To dt.Rows.Count - 1

            .Cols(i + 1).Caption = dt.Rows(i)("col_Caption").ToString()
            .Cols(i + 1).Name = dt.Rows(i)("Col_FieldName").ToString()
            .Cols(i + 1).Width = Convert.ToInt32(dt.Rows(i)("col_width").ToString())
            If dt.Rows(i)("Col_ReadOnly").ToString() = "1" Then

                  Dim cs As CellStyle = fg.Styles.Add("Lock")
                  cs.DataType = GetType(String)

                  .Cols(i + 1).Style = cs
                  .Cols(i + 1).AllowEditing = False
                  .Cols(i + 1).TextAlign = TextAlignEnum.LeftCenter

                  If vLockColor = 1 Then
                     cs.BackColor = Color.AliceBlue
                     cs.ForeColor = Color.MidnightBlue
                  End If
            End If
            If dt.Rows(i)("Col_Visible").ToString() = "0" Then
                  .Cols(i + 1).Visible = False
            End If
            '//数字类型
            If dt.Rows(i)("Col_Number").ToString = "1" And dt.Rows(i)("Col_CheckBox").ToString = "0" Then
                  Dim cs As CellStyle = fg.Styles.Add("Number")
                  cs.DataType = GetType(Decimal)
                  cs.Format = "0.00"
                  .Cols(i + 1).Style = cs

                  '//  .Cols(i + 1).DataType = System.Decimal

                  '    NumCell.DecimalPlaces = Convert.ToInt32(dt.Rows(i)("Col_Decimal").ToString())

            End If
            If dt.Rows(i)("Col_CheckBox").ToString = "1" Then
                  Dim cs As CellStyle = fg.Styles.Add("bool")
                  cs.DataType = GetType(Boolean)
                  cs.ImageAlign = ImageAlignEnum.CenterCenter

                  .Cols(i + 1).Style = cs

            End If
         Next

         .Cols.Count = dt.Rows.Count + 1
         .DataSource = vSourceData

         .Redraw = True
      End With

End Sub

Alice · Alice

chenfeng1029 发表于 2017-2-3 15:00
我写的一个类中的函数。fg=c1flexgrid
传递过去的查询得到的Datatable中有一个status字段，系统是varchar( ...

谢谢您的反馈。
从您提供的代码推测不出问题，麻烦您提供可以重现问题的Demo，我帮您看看。

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

[已处理] Flexgrid一列设置成checkbox样式，数据绑定缺没有打勾

3 个回复

本帖子中包含更多资源

微信认证勋章

活字格认证

元老葡萄