主题：关联的问题

8楼的代码是有问题的，你用SQL语句取后台数据生成编号，后台数据和当前输入的数据没有关系的，除非你保存了

另外为了取得最大日期值，居然加载整个表的数据，这样效率也太低了吧？

建议你看看这里：

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

 

第一段代码就是如何取最大日期值的。

9楼代码去掉，应该在窗口的AfterLoad事件设置代码，将没有权限编辑的空间的Enabled属性设置为False即可。

11楼代码没有看出问题，直接在SQL执行窗口调试一下看看：

 

Select * from {销售订单} Where 审批人 Is Not Null

升级你的foxtable，如果还有问题，做个简单例子发上来。

日期编号，这里有现成的例子：

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

 

这个例子，就是不加载数据，从后台取最大编号的。

http://www.foxtable.com/help/index.html?n=1994.htm

 

 

如果一定要改，大概就是这样：
 
If e.DataCol.Name = "开单日期" Then
    If e.DataRow.IsNull("开单日期") Then
        e.DataRow("系统单号")= Nothing
    Else
        Dim cmd1 As New SQLCommand
        cmd1.CommandText = "SELECT Max(系统单号) From {单号定义} Where "开单日期 = '" & e.DataRow("开单日期") & "'"
        Dim maxid As String dt1 = cmd1.ExecuteScalar '取得最大编号
        If maxid > "" Then
           '根据最大编号生成新的编号
        Else
           '第一个编号
        End If
        e.DataRow.Save()
    End If
End If

 
但是这种处理方式不适合多用户环境，还是好好研究这个例子吧：
http://www.foxtable.com/help/index.html?n=1994.htm

 

呵呵，老弟你真的要补补帮助的了，因为平时你贴给我的不少代码，都或多或少的有些隐患。