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

恢复至列名为 第一列   第二列

Tables("部门考勤_Table1").DataTable.LoadFilter = "1=2"

Tables("部门考勤_Table1").DataTable.Load

Tables("部门考勤_Table1").Grid.Rows(0).Height = 0

'Tables("部门考勤_Table1").DataTable.DataRows.Clear

邪门哪,测试时其中一个表员工信息数据全部消失了.

呃，不应该吧。代码的意思是，不加载数据。

有图才有真相,希望是打开窗口时的状态

 

此主题相关图片如下：01.png

 

现在是这个样子:

 

此主题相关图片如下：02.png

 有什么问题？这不是你要的效果么

不是,要的是第一个图的效果,第二个图如果接着导入第二批名单,没有列名.

 那你就做一张那样的表，然后，绑定到那张表就好了

 

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

 

试试

没试出来,不过去掉两段代码也达到要求了.

Dim a As Table = Tables("部门考勤_Table1")
Dim b As Table = Tables("部门考勤")
For r As Integer = 0 To a.Rows.Count - 1
    b.AddNew
       b.Current("部门") = a.Rows(r)("部门")
    b.Current("员工编号") = a.Rows(r)("员工编号")
    b.Current("姓名") = a.Rows(r)("姓名")
    b.Current("考勤日期") = a.Rows(r)("考勤日期")
    b.Current("工作日") = a.Rows(r)("工作日")
 b.Current("出勤") = a.Rows(r)("出勤")
    b.Current("请假") = a.Rows(r)("请假")
    b.Current("备注") = a.Rows(r)("备注")
    b.Current("考勤人") = user.name
Next
For r As Integer = a.rows.Count - 1 To 0 Step -1
   Next
Tables("部门考勤_Table1").DataTable.LoadFilter = "1=2"
Tables("部门考勤_Table1").DataTable.Load