主题：[求助] 如何动态设置类型为字符型的列的其中一个格为日期型

SQLTable 

问题点

1、目的，判断上一行的“名称”和“数值”列都不可以为空，否则不可以增加行。

2、CellButtonClick 无响应

过滤条件_Tab条件_DataRowAdded

Dim ri As Integer = e.DataTable.DataRows.Count

If ri > 1 Then

MessageBox.Show(e.DataTable.DataRows(1)("名称"))

    e.DataRow("逻辑") = "并且"

Dim dr As DataRow = e.DataTable.DataRows(ri -1)

MessageBox.Show(ri & "|" & dr("名称") & "|" & dr("数值"))

    If dr.IsNull("名称") OrElse dr.IsNull("数值") Then

        MessageBox.Show("条件输入错误:上一行的条件内容不可以为空")

        e.DataRow.Delete

        Return

    End If

End If

    If e.DataTable.DataRows(0)("逻辑") > "" Then e.DataTable.DataRows(0)("逻辑") = Nothing

过滤条件_Tab条件_CellButtonClick

If e.Col.Name = "数值" Then

    e.Cancel = True

    Dim Ct As String = DataTables(Vars("DtName")).DataCols(e.Row("名称")).datatype.name

    MessageBox.Show(ct)

    If ct = "Date" Then

        'If DataTables(Vars("DtName")).DataCols(e.Row("名称"))datatype.name = "日期" Then

        MessageBox.Show("日期")

Forms("日期选择").Open()

    End If

End If

1、beforeAddDataRow事件

If e.DataTable.Compute("count(_Identify)", "第一列 is null") > 0 Then
    e.cancel = True
End If

2、你点击了按钮 ... 了吗？ http://www.foxtable.com/webhelp/scr/0642.htm

可以用代码设置

Tables("窗口表").Cols("第一列").ComboList = "|..."

回复7楼，你要做什么？

Dim r1 As Row = tb.Rows(tb.Rows.Count-1)