最近有一个需求,在UltraWingrid列中的DropDown添加对象,当用户选择时值,读取对象同步更新其它列,目前没有一个好的解决方案,在CellChange事件里实现的.

Private Sub DataGrid1_CellChange(sender As Object, e As Infragistics.Win.UltraWinGrid.CellEventArgs) Handles DataGrid1.CellChange

Dim cur As Common.tb_MM_路线明细 = e.Cell.Row.ListObject

Select Case e.Cell.Column.Key
Case item._工序名称.AttributeName
cur.工序编号 = String.Empty
Dim vl As Infragistics.Win.ValueList = e.Cell.ValueListResolved
If vl Is Nothing OrElse vl.SelectedItem Is Nothing Then
Return
End If
Dim vlitem As Infragistics.Win.ValueListItem = vl.SelectedItem
If vlitem.DataValue Is Nothing Then
Return
End If
cur.工序编号 = CType(vlitem.DataValue, Common.tb_MM_工序定义).工序编号
Case item._设备名称.AttributeName
cur.设备编号 = String.Empty
Dim vl As Infragistics.Win.ValueList = e.Cell.ValueListResolved
If vl Is Nothing OrElse vl.SelectedItem Is Nothing Then
Return
End If
Dim vlitem As Infragistics.Win.ValueListItem = vl.SelectedItem
If vlitem.DataValue Is Nothing Then
Return
End If
cur.设备编号 = CType(vlitem.DataValue, Common.tb_MM_设备定义).设备编号

End Select
End Sub

红色的是关键,标记备用…

由于个人对js不是很熟,最新在使用Jurassic进行计算时提示

Cannot convert object of type ‘System.Decimal’ to a number.

那是因为在SetGlobalValue时数据类型是Decimal

Jurassic数据类型与.net 的映射表

win7,win8免激活版,精简版下载

http://hi.baidu.com/twm_000

http://hi.baidu.com/qxrloxbyyqiuwze

下次装机时测试,暂时收藏.