主题：填充代码

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

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

点击浏览该文件:管理项目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()
    dr2("年月") = e.Form.Controls("TextBox1").Value
    dr2("房间号") = Fj
    dr2("上月读数") = dr1("本月读数")
Next

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

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

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

出错的原因留着你自己找，解决办法好好想想。

没想出办法？

改这句：

Dim Fjs As List(Of String) = DataTables("表A").GetUniqueValues("房间号 Is Not Null", "房间号")

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版明天再帮忙看看，今晚早点休息，晚安

自己做个判断呀。

Dim Exergue As String = e.Form.Controls("TextBox1").Value
Dim r As DataRow = DataTables("表A").Find("年月 = '" & Exergue & "'")
If r IsNot Nothing Then
    MessageBox.Show("表中已存在 " & Exergue,"提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)
    Return
End If
Dim Fjs As List(Of String) = DataTables("表A").GetUniqueValues("房间号 Is Not Null", "房间号")
For Each Fj As String In Fjs
    Dim dr1 As DataRow = DataTables("表A").Find("房间号 = '" & Fj & "'","_Identify Desc")
    Dim dr2 As DataRow = DataTables("表A").AddNew()
    dr2("年月") = Exergue
    dr2("房间号") = Fj
    dr2("上月读数") = dr1("本月读数")
Next

谢谢了，搞定

如果输入 2009年09月  试一试?

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