Dim dr1 As DataRow  = DataTables("部門負責人").Find("[部門] =" & _UserGroup  And "[科室] =" & _Department)
If dr1 IsNot Nothing Then
    If dr1("負責人工號") <> _TimingNumber Then
        e.Form.Controls("Button4").Enabled = False
        e.Form.Controls("Label02").Visible = False
    Else
        e.Form.Controls("Label16").Visible = False
    End If
End If

請指點

Dim dr1 As DataRow = DataTables("部門負責人").Find("[部門] =\'" & _UserGroup & “‘ And "[科室] = \'" & _Department & "\'")

建议看看：

http://www.foxtable.com/help/topics/1284.htm

謝謝，還有點問題，呵呵

Dim tbl As DataTable = DataTables("打辦登記表")
Dim bj As String = "[流程標記]="
Dim bj0 As String = "[流程標記]<>"
Dim Filter As String
tbl.RemoveFor("")
Dim drs As List(Of DataRow)
drs = DataTables("打辦登記表").AppendLoad("[花號] Like \'*DP*\'" AndAlso bj & 10 And bj & 12 And bj & 14 And bj & 16 And bj & 17 ,False)
Tables("打辦登記表").Filter = ""

裡面的"[花號] Like \'*DP*\'"出問題

AllpendLoad应该用SQL语法，参考：

http://www.foxtable.com/help/topics/2401.htm

LIKE运算符

LIKE运算符用于将指定表达式的值和一个模式字符串进行比较，判断两者是否匹配。

LIKE可以使用通配符，通配符包括：

_(下划线)
匹配单个字符

%（百分号）
匹配任意个数的字符

例如：

Like \'C%\'，

表示以字符C开始的值。

在例如：

Like \'A_e%\'

表示第一个字母是A，第三个字母是e。

找出姓名为三个字，且第二个字是“文”的客户：

Select * From {客户} Where 姓名 Like \'_文_\'

找出客户表中的贸易公司：

SELECT * FROM {客户} WHERE 公司名称 LIKE \'%贸易%\'

可以利用NOT关键词进行反向操作，例如：

SELECT * FROM {客户} WHERE 公司名称 NOT LIKE \'%贸易%\'

找出所有非贸易公司