主题：填充代码

窗口年月输入2009年11月，点填充，达到表A房间号填到表A新增行房间号，窗口控件年月填充到表A新增行年月（条件是不重复房间号和窗口控件年月），2009年10月本月读数填充到2009年11月上月读数一次类推。

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

点击浏览该文件:管理项目5.table

不对，只能填充一行的年月列，并提示出错

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

点击浏览该文件:管理项目5.table

Dim Fjs As List(Of String) = DataTables("表A").GetUniqueValues("", "房间号") For Each Fj As String In Fjs     Dim dr1 As DataRow = DataTables("表A").Find("房间号 = '" & Fj & "'","_Identify Desc")     Dim dr2 As DataRow = DataTables("表A").AddNew(1)     dr2("年月") = e.Form.Controls("TextBox1").Value     dr2("房间号") = Fj     dr2("上月读数") = dr1("本月读数") Next

我瞎猫碰耗子，加了一个1，可填充了，但是与C版上面一样的效果，还是有一点不对，同月可反复填充，应同房间号同月只能有一条数据，麻烦C版明天再帮忙看看，今晚早点休息，晚安

谢谢了，搞定

因为是以Identify作为取数的，只要是不同的年月，肯定填充最后的记录，这样可以了。还有就是指定窗口文本来源，不能输入，来源数据每个月都要填写，只要不重复就行，往前往后没法选择