以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  暂停执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76059)
--  作者：yangwenghd
--  发布时间：2015/10/20 22:53:00
--  暂停执行
能帮忙看看这个有什么办法吗？
是这样的   选择Table9 的表的列  然后通过ComboBox9 改变选择Table9 的表的 收款信息_开票状态 列，
改变以后 就清除 ComboBox9 的内容，
问题就在 清楚ComboBox9的内容的时候会改变 Table9 表里面的 其他行 （因为改变后之前Table9选择的列 就不显在Table9，然后鼠标就会默认选择到其他的Table9的杭，后面在执行清除 ，就会清除到后面默认选择的行的收款信息_开票状态列）
 有什么办法可以在执行代码的时候让 鼠标不选择到Table9 表啊！或者 清除ComboBox9 的内容，但是不改变 Table9 收款信息_开票状态 列的信息啊 

Dim t As Table = e.Form.Controls("Table9").Table
For i As Integer = t.BottomPosition To t.TopPosition Step -1
    t.Rows(i)("收款信息_开票状态") = e.Sender.text
Next
e.Form.Controls("ComboBox9").Text = ""
--  作者：yangwenghd
--  发布时间：2015/10/20 23:13:00
--  
可以这样吗？


Dim t As Table = e.Form.Controls("Table9").Table
For i As Integer = t.BottomPosition To t.TopPosition Step -1
    t.Rows(i)("收款信息_开票状态") = e.Sender.text
Next

在执行下面代码的时候， 上面的代码无效，（上面的代码和注释一样）
然后在执行下面代码？
e.Form.Controls("ComboBox9").Text = ""
--  作者：大红袍
--  发布时间：2015/10/20 23:19:00
--  

If e.Form.Controls("ComboBox9").Text > "" Then

 

Dim t As Table = e.Form.Controls("Table9").Table
For i As Integer = t.BottomPosition To t.TopPosition Step -1
    t.Rows(i)("收款信息_开票状态") = e.Sender.text
Next
e.Form.Controls("ComboBox9").Text = ""

 

End If
--  作者：大红袍
--  发布时间：2015/10/20 23:20:00
--  

或者看看 http://www.foxtable.com/help/topics/2218.htm

 
--  作者：yangwenghd
--  发布时间：2015/10/20 23:35:00
--  
谢谢 可以了  问问 page1 可以单独设置密码吗？
--  作者：大红袍
--  发布时间：2015/10/21 9:50:00
--  

SelectedIndexChanging

 

If e.sender.TabPages(e.NewIndex).Text = "page2" Then
    Dim pwd As String
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd <> "123456" Then
            msgbox("错误")
            e.cancel = True
        End If
    End If
End If
--  作者：yangwenghd
--  发布时间：2015/10/24 15:39:00
--  
感谢 感谢 
如果在表A 第一列 输入 A  后 就锁定表A 第一列为A 的行 应该怎么写啊 ！ 感谢 感谢 
--  作者：Hyphen
--  发布时间：2015/10/24 16:12:00
--  

DataColChanged事件

 

查找： http://www.foxtable.com/help/topics/0400.htm

 

 锁定：      http://www.foxtable.com/help/topics/0427.htm
--  作者：yangwenghd
--  发布时间：2015/11/13 9:10:00
--  
If DataTables("订单").DataRows(0).Locked = False Then \'如果第一行没有锁定
    DataTables("订单").DataRows(0).Locked = True \'锁定第一行
End If
如果改成选中的行呢 感谢 感谢 不是第一行
比如选中窗口_Table1的行 然后选择 已开票 然后就锁定该行  感谢 感谢 
[此贴子已经被作者于2015/11/13 9:11:23编辑过]
--  作者：大红袍
--  发布时间：2015/11/13 9:30:00
--  

DataColChanged事件

 

If e.DataCol.Name = "第一列" Then
   
    If e.DataRow("第一列") = "A" Then
        e.DataRow.Locked = True
    Else
        e.DataRow.Locked = False
    End If
   
End If