重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你可以先用循环的方法来获得改datagrid中“性别”的值,接着自己定义个变量来存放这个“性别”的1或者0,然后根据这个值用条件来判断是显示“男性”还是女性,打个比方(有五列十行数据,比方第二列显示出“性别”):
公司主营业务:成都网站设计、成都网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。成都创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联推出双城免费做网站回馈大家。
Dim intRow As Integer
Dim intColumn As Integer
Dim Gender As Integer
For intRow = 0 To 9(DataGrid的行总和)
Gender = CInt(datagrid1.Item (intRow, 1).ToString )
If Gender = 0 Then
datagrid1.Item (intRow, 1)="男"
Else
datagrid1.Item (intRow, 1)="女"
Next
Randomize()的作用是初始化随机数种子,
它有个带参数的版本
Randomize(double
seed)
seed是产生随机数序列的一个标号,如果你不调用Randomize改变这个标号,默认使用的是同一个序列,所以每次你启动程序生成的随机数都是相同的,不带参数的Randomize等价于Randomize(Timer),也就是使用系统时钟作为随机数种子
因为这个值随程序启动或调用每次都不会相同,所以能实现产生不同的随机数
可以改写成以下形式:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\FUO_Inventory.accdb"
Dim myConn As New OleDbConnection(strCon)
myConn.Open()
End Sub