以文本方式查看主题

-  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=80461)

--  作者:cjz7120641
--  发布时间:2016/1/23 16:09:00
--  [求助]结果样式改变
Dim st As String = e.Form.Controls("ComboBox2").Value
Dim dr As DataRow
dr = DataTables("产品数量统计").Find( "[SAP描述] = \'" & st & "\'")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("产品数量统计").FindRow( dr )
    If wz >= 0 Then
        Tables("产品数量统计").Position = wz              
 End If
End If

这是我写的查找并显示代码  请问怎么让我显示的那行的样式变成我想要的样式,要怎么加代码  在线坐等

--  作者:Hyphen
--  发布时间:2016/1/23 16:18:00
--  
参考一:http://www.foxtable.com/help/topics/0656.htm



--  作者:cjz7120641
--  发布时间:2016/1/23 16:22:00
--  
你这个我知道  但是我做按钮然后写代码  样式的代码写不进去
--  作者:Hyphen
--  发布时间:2016/1/23 16:25:00
--  
怎么个写不进去,贴出代码
--  作者:大红袍
--  发布时间:2016/1/24 11:05:00
--  
以下是引用cjz7120641在2016/1/23 16:22:00的发言:
你这个我知道  但是我做按钮然后写代码  样式的代码写不进去

 

比如,drawcell事件

 

If e.Table.Current.index = e.Row.index Then
    e.Style = "样式1"

End If

 


--  作者:cjz7120641
--  发布时间:2016/1/24 15:18:00
--  
谢谢了