以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]取消当前行编辑  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126388)
--  作者：blsu33
--  发布时间：2018/10/20 6:52:00
--  [求助]取消当前行编辑
老师，
下拉窗口单元格，当前单元格下拉状态，当取消当前行编辑，取消时，发现顺序是，下拉关闭，假如下拉当前单元格无数据，当前数据为空，取消状态结束，但是移动当前单元格，依然是空，行状态为变成了修改过的行。

如何强制，完成当前行的编辑
[此贴子已经被作者于2018/10/20 8:12:58编辑过]
--  作者：blsu33
--  发布时间：2018/10/20 7:18:00
--  
或者表下拉窗口关闭后，完成当前单元格编辑，或者选择下一个单元格，怎么写？
[此贴子已经被作者于2018/10/20 7:18:02编辑过]
--  作者：有点蓝
--  发布时间：2018/10/20 8:51:00
--  
参考：http://www.foxtable.com/webhelp/scr/0550.htm
--  作者：blsu33
--  发布时间：2018/10/20 9:27:00
--  
上述代码 可用 但是结果还是 当当前下拉窗口打开，当前单元格无数据的时候，用tables.curent.Reject 没有实现返回原来状态，而是空
Dim ary() As String = vars("tblcol").Split(".")
Dim tbl As Table = Tables("dropset2_Table1")
Dim tr As Row = Tables(ary(0)).Current \'获取此表的当前行
Dim dtname As String=Tables(ary(0)).DataTable.name
If tr IsNot Nothing Then
    Dim dr As DataRow = DataTables("zadropset").Find("[dropbintable] =\'"& dtname &"\' And [dropbincol] =\'"& ary(1) &"\'")
    If dr IsNot Nothing AndAlso dr.IsNull("droplistcol")=False AndAlso dr.IsNull("dvaluecol")=False Then \'如果在项目表找到对应的行
        Dim Parts(),Parts1() As String
        Dim i As Integer
        Parts=dr("droplistcol").Split(",")
        Parts1=dr("dvaluecol").Split(",")
        If e.Selected Then \'如果选择了值
            For i=0 To Parts.Length-1
                If tbl.Cols.Contains(Parts(i)) And Tables(ary(0)).Cols.Contains(Parts(i)) Then
                    tr(Parts(i)) = tbl.Current(Parts1(i))
                End If
            Next
            If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
                e.Form.DropTable.FinishEditing()
            Else \'如果是通过窗口下拉的
                e.Form.DropDownBox.WriteValue()
            End If
Else
e.Form.DropTable.FinishEditing()
tr.Reject
        End If
           End If
End If
--  作者：有点蓝
--  发布时间：2018/10/20 10:15:00
--  
Reject是返回到最后一次保存时的状态，而不是上一次编辑的状态。如果要返回上一次编辑的状态，打开下拉窗口后使用变量保存编辑前当前行的值
--  作者：lcxfoxtab
--  发布时间：2018/10/20 21:15:00
--  
 

老师好：当前表有一列为：客户名称，已设置从”客户管理“表中的”客户名称“列取值； “客户管理"表中有"客户名称“列和”代码“列，”代码“列为"客户名称“列的大写拼音字母，且不超过4位，如”大地实业公司“可设置为”DD",在当前表输入”DD“，可找到对应的”大地实业公司“；为了控制非法输入，在当前表的datacolchanging事件写了如下代码，可运行一直出错，请老师指教。我的邮箱为：liucxcase@sina.com

代码如下：

 

 

Case  "客户名称"

        If Char.IsLetter(e.NewValue) And len(e.NewValue) <= 4 Then

            Dim khdm As String = e.NewValue.Toupper

            Dim khdr As DataRow

            khdr =  DataTables("客户管理").Find("代码 = \'"& khdm & "\'")

            If khdr IsNot Nothing Then

                e.NewValue = khdr("客户名称")

            Else

                e.Cancel = True

            End If

        Else

            Dim khdr As DataRow

            khdr =  DataTables("客户管理").Find("客户名称 = \'"& e.NewValue & "\'")

            If khdr Is Nothing Then

              dr(“客户名称”) = e.NewValue

            else

                e.Cancel = True

            End If

        End If

       

--  作者：blsu33
--  发布时间：2018/10/21 10:36:00
--  
楼上的判断下 e.NewValue  IsNot Nothing
Case  "客户名称"
if e.NewValue  IsNot Nothing then
--  作者：blsu33
--  发布时间：2018/10/21 10:37:00
--  
老师，
  按照您说的 用了变量 VARS("aa")
4楼代码 怎么改下呢？
--  作者：blsu33
--  发布时间：2018/10/21 10:41:00
--  
只是 感觉 这部分 的判断呢不对 但不知道 怎么 写 比较好,因为，不是选定的值，而是，直接在所在单元格进行的编辑
If e.Selected Then \'如果选择了值
            For i=0 To Parts.Length-1
                If tbl.Cols.Contains(Parts(i)) And Tables(ary(0)).Cols.Contains(Parts(i)) Then
                    tr(Parts(i)) = tbl.Current(Parts1(i))
                End If
            Next
            If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
                e.Form.DropTable.FinishEditing()
            Else \'如果是通过窗口下拉的
                e.Form.DropDownBox.WriteValue()
            End If
Else
，e.Form.DropTable.FinishEditing()
，tr.Reject
   tr(Parts(i)) =vars("aa")
--  作者：有点甜
--  发布时间：2018/10/21 11:33:00
--  

具体实例发上来测试。