以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]chekbox逻辑字段绑定怎么赋值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124702)
--  作者：blsu33
--  发布时间：2018/9/12 10:18:00
--  [求助]chekbox逻辑字段绑定怎么赋值
老师，
  chekbox逻辑字段绑定怎么赋值

If pnl.Children.count>0 Then
    For Each nb As object In pnl.Children
        If nb.Bindingfield > "" Then
            tb=nb.BindingField.Split(".")(0)
            cl=nb.BindingField.Split(".")(1)
            If Tables(tb).Current IsNot Nothing Then
                Dim c As Col = Tables(tb).Cols(cl)
                If c.IsBoolean Then
                    Tables(tb).Current(cl)=nb.value
                ElseIf c.IsNumeric Then
                    Tables(tb).Current(cl)=nb.value
                Else
                    Tables(tb).Current(cl)=nb.text
                End If
            End If
        End If
    Next
--  作者：有点甜
--  发布时间：2018/9/12 10:41:00
--  

 

Tables(tb).Current(cl)=nb.checked