beachandbytes

var variablebuttonname = 'woo woo';
var dialog_buttons = {}
dialog_buttons[variablebuttonname] = function(){ 
$(this).dialog('close'); //Or whatever you want the button to do
}   
            $('#cSearch').simpledialog2({
                mode: 'button',
                zindex: 10000, 
                headerText: 'Select Phone Number',
                headerClose: false,

beachandbytes

SELECT
P.club
,memberCount.members
,SUM(O.Price * P.qnty) [sales]
FROM purchase P
INNER JOIN offer O ON O.club = P.club AND P.title = O.title
INNER JOIN (
  SELECT M.club,COUNT(*) [members]
	FROM members M
	GROUP BY M.club

beachandbytes

SELECT *
FROM (
  SELECT
    P.club,
  	memberCount.members,
  	titleCount.titles,
  	SUM(O.Price * P.qnty) AS sales
  FROM 
  	purchase P
  JOIN offer O ON 

beachandbytes

using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
using System.ComponentModel.Design;
using Microsoft.VisualStudio.Shell;
using EnvDTE;
using EnvDTE80;

namespace None.TLN
{

beachandbytes

CID | CName | EID | EName
 1     Test    1    Fred
 1     Test    2    Jon
 1     Test    3    Rick
 2     Rock    1    Sam
 2     Rock    2    Jay
 2     Rock    3    Faz
 

beachandbytes

var newResult = (from client in ctx.Audit().Where(z => batches.Contains(z.BatchID) || batches.Count == 0)
                  group client by new
                  {
                      client.BatchID,
                      client.PrevBatchID,
                      client.BatchNo  ,
                      client.PrevBatchNo  ,
                  } into clientGroup
                  select new Clients
                  {

beachandbytes

PreviousQuarters <- c(clientResults$ClaimsPaid[clientResults$YearQuarter == QuarterDates[1]],
                        clientResults$ClaimsPaid[clientResults$YearQuarter == QuarterDates[2]],
                        clientResults$ClaimsPaid[clientResults$YearQuarter == QuarterDates[3]])

beachandbytes

within(Wages, {
   TotalWages <- sum(Wages$TotalWages[Wages$ID == ID && Wages$Year <= Year])
})

beachandbytes

foreach(i=unique(CCR$ID)) %do% {
 row <- subset(CCR, ID == i)
 CCR$OldEmployerRate[CCR$ID==i] <- ECR$Rate[ECR$EID == row$EID]
}

beachandbytes

> head(bl2)

[[1]]
   V1
1 0.9
2 1.0
3 2.2
4 2.4
5 2.6
6 3.8