使用代码添加主键值

用数组的方式添加多个主键：

 

        Dim ds As New DataSet

        With ds.Tables.Add("Customer")
            .Columns.Add("CustomerId", GetType(Integer))
            .Columns.Add("OrderId", GetType(String))
            .PrimaryKey = New DataColumn() {.Columns("CustomerId"), .Columns("OrderId")}
        End With