主题：如何让窗口SQL表可编辑?

DataTables("表A").Fill("Select * From {订单}", False)

执行上述代码后，表A将显示订单表的数据，尽管其名称还是表A。

如果将IsQuery参数设置为True，将生成查询表：

DataTables("表A").Fill("Select * From {订单}", True)

Dim Filter As String

With e.Form.Controls("bm")

    Filter = "部门 = '" & .Value & "'"

End With

Tables("部门考勤_Table1").Fill("Select [_Identify],[部门],[员工编号],[姓名] From {员工信息} Where " & Filter,"sl", False)

With DataTables("部门考勤_Table1").DataCols   

    .Add("考勤日期",Gettype(Date),"","考勤日期")

    .Add("工作日",Gettype(String),"","工作日")

    .Add("出勤",Gettype(Double),"","出勤")

    .Add("请假",Gettype(Double),"","请假")

    .Add("考勤人",Gettype(String),"","考勤人")

    .Add("备注",Gettype(String),"","备注")

End With

Dim Lb1 As WinForm.DateTimePicker

Lb1 = e.Form.Controls("日期")

Dim cmb1 As WinForm.TextBox

cmb1 = e.form.Controls("星期")

cmb1.Value = WeekDayName(Lb1.Value.DayOfWeek)

For Each r As Row In Tables("部门考勤_Table1").Rows

    r("考勤日期") = lb1.Value

    r("工作日") = cmb1.Value

Next

编辑不了呀,怎么办?   详见附件窗口 部门考勤

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:事例.zip