【发布时间】:2016-01-28 06:56:32
【问题描述】:
我需要在 devExpress 网格控件 (grdDisb) 中使用无线电组 (rdoChargeOn)。 我正在从存储过程中获取行。 我总是选择无线电组的索引= -1,值= 0的问题。 此外,如果我创建一个新行,则单击 enter 后值为 0,没有选定项目。
在这种情况下,rdochargeOn.SelectedIndex 的等价物是什么?你能帮我吗? 请查找附加的网格打印屏幕。
Private _DisbList As BindingList(Of PropertyDisbursementList)
_DisbList = New BindingList(Of PropertyDisbursementList)(obj.DisbList)
GrdDisb.DataSource = _DisbList
GrdDisb.RefreshDataSource()
rivate Sub BindDisbGrid()
If RecordId <> -1 Then '' Import the list of disbursement
_DisbList = New BindingList(Of PropertyDisbursementList)(obj.DisbList)
End If
_DisbList.AllowNew = True
GrdDisb.DataSource = _DisbList
GrdDisb.RefreshDataSource()
End Sub
Public Sub SaveDisbList()
Try
Dim disb As New PropertyDisbursementList
Dim indx As Int32 = 0
Dim CategName As String = ""
Dim objWCF As WCFReference.PropertiesServiceProvider = GetServiceProvider()
For i As Integer = 0 To GridView1.DataRowCount - 1
If GridView1.GetRowCellValue(i, "CategId").ToString <> 0 Then
disb = _DisbList(i)
If RecordId <> -1 Then
disb.PropertyId = RecordId
disb.CategName = objWCF.Service.GetCatPropertyDisbursement(disb.CategId)
disb.RecordInfo = GetRecordInfo()
disb.PropertyId = objWCF.Service.SavePropertyDisbursementList(disb)
Else
disb.PropertyId = ProId
disb.CategName = objWCF.Service.GetCatPropertyDisbursement(disb.CategId)
disb.RecordInfo = GetRecordInfo()
disb.PropertyId = objWCF.Service.SavePropertyDisbursementList(disb)
End If
End If
Next
Catch ex As Exception
iMessage.ShowError(Nothing, ex)
End Try
End Sub
提前谢谢, 问候, 哈迪尔
【问题讨论】:
标签: vb.net devexpress